//ABLMSC$$ JOB (ABLMSC,B095SC),'10MIS-BLAKE X3659',
//        CLASS=T,MSGCLASS=T,NOTIFY=ABLMSC
//**                                                                    00000015
//*******************************************************************
//*                                                                 *
//*  JOB DESCRIPTION  : SEARCHES FOR ENTRY POINTS ETC FOR ALL       *
//*                     MODULES ACCORDING TO RANGE REQUESTED.       *
//*  ALL MEMBERS      : USE $:Z -> ALL MEMBERS FROM $ TO Z          *
//*  RANGE OF MEMBERS : USE B:C ALL MEMBERS BETWEEN                 *
//* 'INPUT FIELD' 'OUTPUT FIELD'                                    *
//*  NOWRITE MEANS DO A SIMULATION.                                 *
//*  WRITE   MEANS DO IT REALLY.                                    *
//*  REP  A:Z 'EXTRACT' 'EXTRACT'  WRITE
//*  REP  MAP: 'RX' 'AP' WRITE                                      *
//*  REP  MAP:MAP 'RX' 'AP' WRITE                                   *
//* E.G. REP  J281:J287 'NEWAP.R285VOU' 'NEWAP.R285VOU'  WRITE      *
//*                                                                 *
//*******************************************************************
//STEP010  EXEC PGM=IKJEFT01
//STEPLIB  DD DSN=CGAZSC.MISC.LOAD,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//PDSOUT   DD SYSOUT=*
//SYSTSIN DD *
PDS 'J281SC.IAS.NEW.SYSIN'
REP  J281:J281 'IAS.SYSIN' 'IAS.NEW.SYSIN' WRITE
END
//
